home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / helmet.pov < prev    next >
Encoding:
Text File  |  1994-06-23  |  2.3 KB  |  71 lines
  1. /* STEERPIKE'S HELMET OBJECT THINGY
  2. IF YOU HAVE NO IMAGINATION AT ALL THEN BY ALL MEANS JUST USE THIS
  3. IN YOUR SCENES. OTHERWISE GO AND DO YOUR OWN, SINCE I DON'T
  4. THINK MUCH OF THIS LITTLE NUMBER, PERSONALLY.
  5. CONTACT ME AT ZCTYJHP@TS.BCC.AC.UK... IF YOU LIKE
  6. */
  7. // Oh, and don't worry about not having camlight.inc, just shove a cammera
  8. //at 0,0,0 and a cople of lights in
  9. #include "colors.inc"
  10. #include "textures.inc"
  11. #include "shapes.inc"
  12. #include "camlight.inc"
  13. object {BrightLight1 scale <1, 1, 1> translate <-10, 10, -10>}
  14. object {BrightLight1 scale <1, 1, 1> translate <-10, -10, -10>}
  15.  
  16.  
  17. camera {Camera1 translate <0, 0, -4>}
  18.   
  19. #declare Hel=object{
  20.                 difference{
  21.                 sphere{<0,0,0>1}
  22.                 sphere{<0,0,0>.8}  //plane{y,0}
  23.                 }
  24.                 }
  25. #declare Helm=object{
  26.                 difference{
  27.                 object{Hel}
  28.                 plane{y,0} //object{Hel scale <.8,.8,.8>}
  29.                 }
  30. //                texture{Rust scale<.4,.4,.4>}
  31.                  bounded_by{sphere{<0,0,0>1.1}}
  32.                  }
  33. #declare Stripx=object{
  34.                 difference{
  35.                 object{Helm}
  36.                 plane{y,0 rotate x*-90 translate z*.15}
  37.                 plane{y,0 rotate x*90 translate z*-.15}
  38.                 }
  39.                 texture{pigment{color rgb<.5,.4,.55>}
  40.                 finish{specular .6 diffuse .4 reflection .7}
  41.                 }
  42.                 }
  43. #declare Stripy=object{Stripx rotate y*90}
  44.  
  45. #declare CheekGuardl=object{
  46.                 cone{<0,0,0> .8 <.2,-1.1,.-.3> .3
  47.                 scale<.2,1,1>
  48.                 translate<-.7,.2,.1>
  49.                 }
  50.                 texture{Rust}
  51.             //    bounded_by{
  52.               //  cone{<0,0,0> .4 <.1,-.6,.-.2> .1 scale<.11,1.1,1.1> translate<-.5,.2,-.1>}
  53.                // }
  54.                 }
  55. #declare CheekGuardr=object{
  56.                 object{CheekGuardl}
  57.                 scale <-1,1,1>
  58.                 }
  59. #declare Helmet=object{
  60.                 union{
  61.                 object{Helm texture{Rust scale<.14,.14,.14>}}
  62.                 object{Stripy scale<1,1.5,1> translate y*.08}
  63.                 object{Stripx translate y*.2}
  64.                 object{CheekGuardl}
  65.                 object{CheekGuardr}
  66.                 }
  67.                 }
  68. object{Helmet rotate x*0}
  69. //object{CheekGuardl}
  70. //object{CheekGuardr}
  71.